home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / QLST@1.QM < prev    next >
Text File  |  1992-05-27  |  987b  |  25 lines
  1. *                               qlst@1.qm
  2. *               Macro To Load a File List of Files In Ring
  3. *                                 5/18/92
  4.  
  5. * 
  6. * ----------------------------------------------------------------------
  7. * @(1)  Load File List In Ring,
  8. *       Does NOT Read First File's Macros,  (Kyle Watkins, author)
  9. * ----------------------------------------------------------------------
  10. *       See QLSTnn.QM for this macro's description.
  11.  
  12.  
  13.  
  14. @1       MacroBegin
  15.          EndFile BegLine              * start at last line
  16.        REPEAT:
  17.          UnmarkBlock MarkLine Copy    * grab this name
  18.          EditFile                     * get ready to load
  19.          CurrentFilename " "          * to force return *here*
  20.          Paste Return                 * paste file name & do it!
  21.          CursorUp                     * more lines above?
  22.          JTrue REPEAT                 * if yes, repeat.
  23. *
  24. * 19 bytes Tue  07-31-1990  18:30:10 (KW @1, size added by TH)
  25.